home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Commodore Disc 53
/
Commodore_Disc_53_19xx_-_de.d64
/
super quiz
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
18KB
|
576 lines
10 rem super quiz
11 rem geschrieben von:
12 rem robert weitzel
13 rem hollerlander weg 100
14 rem 2800 bremen 33
15 :
30 poke53280,0:poke53281,0:gosub10000
50 v=53248:poke2040,13
90 dimr(100):dimag$(9):dimn$(16):dimp(16):dimbe$(350):dimhi$(40):dimsc(40):ra=1
170 r=1:m$="":forz=1to16:p(z)=0:next :p7=0:kb=0:d=0
172 sp=-1
175 print"[147]"
177 if ag$(0)<>""then500
179 bs$="standard":goto187
180 print"[152] filename (s=standard):"
185 input" ";bs$:ifbs$="s"thenbs$="standard"
187 ifbs$="standard"then open2,8,2,bs$+",s,r":goto200
190 open2,8,2,"satz "+bs$+",s,r"
200 open1,8,15:input#1,x,x$
210 ifx>0thenprint" "x$"[152]":close1:close2:goto180
220 print"[150][147] bitte warten... "
225 input#2,ab:forx=0to9:input#2,ag$(x): nextx
227 forx=1toab:input#2,be$(x):nextx:close2:close1
230 bs$="satz "+bs$
480 gosub2500
490 :
500 poke198,0:print"[147] [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]";
501 print"[157][221][157][221][157][221][157][221][157][221][157][221][157][221][157][221][157][221][157][221][157][221][157][221][157][221][157][221]"
502 print" [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
503 print" [157][221][157][221][157][221][157][221][157][221][157][221][157][221][157][221][157][221][157][221][157][221][157][221][157][221][157][221]"
504 print" [171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179]"
509 print"[152] f1[146] andere begriffe"
510 print"f3[146] spielstart"
511 print"f5[146] hiscores" :print"f7[146] anleitung"
512 print" _[146] editieren"
514 print"file: ";right$(bs$,len(bs$)-5)
515 print""ab" begriffe"
516 print"-----------s-u-p-e-r--q-u-i-z-----------"
520 geta$:ifa$=""then520
530 ifa$="[133]"then print"[147]":goto180
540 ifa$="[134]"then 800
541 ifa$="[135]"then gosub12010:gosub13000 :goto500
542 ifa$="_"then 9500
543 ifa$="[136]"then 14000
545 ifa$="c"then 9000
550 goto520
800 :
810 ifn$(1)=""then1000
815 print"[147]"
820 forx=1toas:print" "x". "n$(x):next
830 print" ist die aufstellung korrekt (j/n)?"
840 geta$:ifa$=""then840
850 ifa$="n"then1000
860 ifa$="j"then1135
870 goto840
1000 :
1010 rem --- namen abfragen ---
1020 print"[147]":x=1
1030 n$(x)="":print" spieler"x; :inputn$(x)
1035 if n$(x)="" and x<3 or len(n$(x))>12 then print"[145]";:goto 1030
1038 if n$(x)="" and x>2 then 1050
1040 x=x+1:if x<17 then 1030
1050 as=x-1
1134 :
1135 print" ueber wieviele runden soll das spiel gehen (10,20,30 oder 50)
1140 [133]" ";ar
1142 [139] ar[178]10 [176] ar[178]20 [176] ar[178]30 [176] ar[178]50 [167]1146
1145 [153]"on";:[137]1140
1146 sn[178]0:[133]" seid ihr sensibel ";x$ :[139] x$[178]"j" [176] x$[178]"y" [167] sn[178]1
1150 [153]"load"
1160 [129]x[178]1[164]as [169]2
1165 [151]214,9[170]x:[151]211,0:[158]58640
1170 [153]n$(x)[166]17[171][195](n$(x)))"sys0 ";
1172 [139]x[170]1[179][178]as[167][153]n$(x[170]1)[166]17[171][195](n$(x[170]1)))"sys0";
1180 [130]x:[141]3000:[141]1900
1200 [153]"conttantantantantantantantantantantantantantantantantantantan=tantantantantantantantantantantantantantantantantantantantan";
1210 [153]"(NULL)cmd(NULL)cmd(NULL)cmd(NULL)cmd(NULL)cmd(NULL)cmd(NULL)cmd(NULL)cmd(NULL)cmd(NULL)cmd(NULL)cmd(NULL)cmd(NULL)cmd(NULL)cmd(NULL)";
1255 [143] --- striche zeichnen ---
1257 m[178]0:m$[178]" "
1260 lb[178][195](b$)
1265 [153]"print#";
1270 [129]x[178]1[164]lb:x$[178][202](b$,x,1)
1275 [139]x$[178]" "[167]m[178]m[170]1:[153]" ";:[137]1290
1280 [153]"-";:
1290 [130]
1300 [153]" ":
1305 w[178]0:[153]"runde "r" gesucht wird sys"ag$(ag)
1310 [153]"sys"n7$" ist dran ! "
1320 [153]"einen buchstaben oder loesung eingeben:":e$[178]"":[153]" ?sincmd";
1322 [161]x$:[139]x$[177]""[167]1325
1323 [139] [181]([197](ti$)[173]2)[178][197](ti$)[173]2 [167] [153]"sinwaitcmd";:[137]1322
1324 [153]"sincmd";:[137]1322
1325 [139] [198](x$)[178]13 [175] e$[179][177]"" [167] [153]" ";:[137]1340
1326 [139][198](x$)[178]20[175]e$[179][177]""[167]e$[178][200](e$,[195](e$)[171]1):[153][199](20)"sincmd";
1327 [139] x$[178]" "[167]1330
1329 [139] x$[179]"a" [176] x$[177]"z" [167]1322
1330 [139] [195](e$)[179]37 [167] e$[178]e$[170]x$ :[153]x$"sincmd";
1335 [137]1322
1340 [139] [195](e$)[178]1 [167]1380
1350 [139] e$[178]b$ [167] [137]1500
1355 kb[178]kb[170]1:[141]2140:[139]kb[177]5[175]kb[177][178]as [167][141]6675:[137]1492
1360 [141]1900:[137]1300
1380 [143] --- buchstaben einsetzen ---
1383 [129]x[178]1[164] [195](m$):x$[178][202](m$,x,1)
1384 [139]x$[178]e$[167][141]2010:[137]1300
1385 [130]
1390 [153]"";
1400 [129]x[178]1[164]lb:x$[178][202](b$,x,1)
1410 [139]x$[178]e$[167][153]"sys"e$"print#";:w[178]1:p7[178]p7[170]10:m[178]m[170]1:[141]2840:[137]1440
1430 [153]"";
1440 [130]:[141]1450:[137]1483
1449 [143] --- punkte ausdrucken ---
1450 p(d)[178]p(d)[170]p7
1460 [139] [181](d[173]2)[178]d[173]2 [167] 1470
1465 [151]214,9[170]d:[151]211,12:[137]1475
1470 [151]214,8[170]d:[151]211,32
1475 [158]58640:[153]"sys"[166]6[171][195]([196](p(d)))) p(d)"print#";
1480 p7[178]0:[142]
1482 [143] -------
1483 [139]m[178][195](b$)[167][141]3500:[141]2050:[137]1492
1485 [139]w[178]1[167]m$[178]m$[170]e$:[137]1300
1490 [139]w[178]0[167] [141]2200:[141]6500:[141]2450:[139]kb[177]5 [175] kb[177][178]as [167] 1492
1491 [139]w[178]0[167] [141]1900:[137]1300
1492 r[178]r[170]1:kb[178]0:ra[178]ra[170]1
1493 [139]r[177]ar[167] 4000
1495 [141]3000:[141]1900:[137]1255
1500 [143] --- loesung richtig ---
1510 [141]2110:[141]3500
1515 [153]"";
1519 x0[178]0
1520 x0[178]x0[170]1:x$[178][202](b$,x0,1)
1530 [129]y[178]1[164][195](m$)
1535 x1$[178][202](m$,y,1)
1540 [139]x$[178]x1$[167]z[178]1
1545 [130]y
1550 [139]z[178]1[167][153]"";:[137]1560
1555 [153]"sys"x$;:p7[178]20:[141]1450:[153]""[166]x0);
1557 [141]2840
1560 z[178]0:[139]x0[179][195](b$)[167]1520
1640 [141]2130:w[178]2:[141]1450
1650 [129]x[178]0[164]2000:[130]:[137]1483
1900 [143] --- naechster spieler ---
1920 [139]d[178]as[167]d[178]1:[137]1940
1930 d[178]d[170]1
1940 n7$[178]n$(d)
1950 [142]
2000 [143] --- kommentare ---
2010 [153]"def der buchstabe steht schon da,du niete!print#"
2015 [139] sn[178]1 [167] [153]"cmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmd ";
2020 [129]x[178]0[164]3000:[130]
2030 [153]" ":[142]
2050 [153]"def endlich habt ihr es geschafft !print#"
2060 [129]x[178]0[164]3000:[130]
2070 [153]" ":[142]
2110 [153]"def super !! die loesung ist richtig !print#":[142]
2130 [153]" ":[142]
2140 [153]"def das ist total falsch !print#"
2150 [129]x[178]0[164]3000:[130]
2160 [153]" ":[142]
2200 [143] --- zufallssprueche---
2202 [139] sn[178]0 [167] 2205
2203 [153]"def "e$" ist leider falsch":[142]
2205 x[178][187]([171]ti)
2210 x[178][181]([187](0)[172]24)[170]1
2220 y[178][181]([187](0)[172]13)[170]1
2230 [145] x [137]2240,2241,2242,2243,2244,2245,2246,2247,2248,2249,2250,2251,2252
2235 [145] x[171]13 [137]2253,2254,2255,2256,2257,2258,2259,2260,2261,2262,2263
2240 x$[178]"flasche":[137]2300
2241 x$[178]"faule banane":[137]2300
2242 x$[178]"pappnase":[137]2300
2243 x$[178]"scherzkeks":[137]2300
2244 x$[178]"hanswurst":[137]2300
2245 x$[178]"vertrocknetes gummibaerchen":[137]2300
2246 x$[178]"hirnamputierter goldfisch":[137]2300
2247 x$[178]"halbgares suppenhuhn":[137]2300
2248 x$[178]"schief gewickelte fruehlingsrolle":[137]2300
2249 x$[178]"kuemmerlicher schlumpf":[137]2300
2250 x$[178]"krummer hering":[137]2300
2251 x$[178]"sandkastenstratege":[137]2300
2252 x$[178]"trostpreis":[137]2300
2253 x$[178]"schiessbudenfigur":[137]2300
2254 x$[178]"depp":[137]2300
2255 x$[178]"kamel":[137]2300
2256 x$[178]"hohlkopf":[137]2300
2257 x$[178]"dorftrottel":[137]2300
2258 x$[178]"torfkopf":[137]2300
2259 x$[178]"treulose tomate":[137]2300
2260 x$[178]"kameltreiber":[137]2300
2261 x$[178]"senfgurke":[137]2300
2262 x$[178]"salzhering":[137]2300
2263 x$[178]"schweinehirt":[137]2300
2300 [145] y [137]2310,2320,2330,2340,2350,2360,2364,2368,2370,2375,2378,2380,2383
2310 [153]"def leider falsch geraten,":[153]" du "x$:[137]2400
2320 [153]"def das war ja wohl nix,":[153]" du "x$:[137]2400
2330 [153]"def nicht schlecht, aber trotzdem falsch," :[153]" du "x$
2335 [137]2400
2340 [153]"def schaaade, schon wieder nix,":[153]" du "x$:[137]2400
2350 [153]"defis' dir'n klavier auf'n kopf gefallen ?" :[153]" du "x$
2355 [137]2400
2360 [153]"def wo soll denn da ein "e$" sein ? ,":[153]" du "x$
2362 [137]2400
2364 [153]"def ich bin enttaeuscht von dir,":[153]" du "x$
2365 [137]2400
2368 [153]"def nein !, neeiin !!, total daneben,":[153]" du "x$
2369 [137]2400
2370 [153]"def jawoll, wieder 0 p. fuer dich,":[153]" du "x$
2371 [137]2400
2375 [153]"def aaaarrgh , ich halt's nicht aus,":[153]" du "x$
2376 [137]2400
2378 [153]"def peinlich, peinlich ,":[153]" du "x$
2379 [137]2400
2380 [153]"def ooch "n7$", das ist pech,":[153]" du "x$
2381 [137]2400
2383 [153]"def das ist leider falsch "n7$",":[153]" du "x$
2384 [137]2400
2400 [153]"print#";:[142]
2440 :
2450 [153]" "
2460 [153]" "
2470 [142]
2500 [143] --- geraeusch ---
2510 s[178]54272
2520 [151]s[170]24,15
2530 [129]l[178]0[164]23:[151]s[170]l,0:[130]
2535 [151]s[170]23,240
2540 [151]s[170]7,157
2550 [151]s[170]8,60
2555 [151]s[170]12,8:[151]s[170]19,87
2560 [151]s[170]13,3
2800 [142]
2840 [143] --- einzelner ton ---
2850 [151]s[170]11,17:[129]z[178]0[164]25:[130]z:[151]s[170]11,0:[142]
2900 [139] y$[179][177]" " [167] [151]s[170]11,129 :[142]
2901 [142]
3000 [143] --- begriff suchen ---
3010 :
3020 m$[178]""
3030 [153]" ":
3050 x[178][181]([187](0)[172]ab)[170]1
3060 [139] ra[177]ab [176] ra[177]100 [167] ra[178]1: [137]3090
3065 [129]z[178]1 [164] ra[171]1
3070 [139]x[178]r(z)[167]3050
3080 [130]
3090 r(ra)[178]x
3100 b$ [178] [200](be$(x),[195](be$(x))[171]2)
3110 ag [178] [197]([201](be$(x),1))
3180 [142]
3500 [143] --- melodie ---
3510 [140]:s[178]54272
3520 [151]s[170]13,10[172]16[170]10:[151]s[170]20,10[172]16[170]10:[151]s[170]12,100:[151]s[170]19,100
3530 [129]z[178]1[164]8
3550 [135]h:[135]l:[135]td
3555 [151]s[170]8,h:[151]s[170]7,l:[151]s[170]15,h:[151]s[170]14,l[170]5:[151]s[170]11,33:[151]s[170]18,33
3560 [129] x[178]0 [164] td:[130]x:
3570 [151]s[170]11,0:[151]s[170]18,0:[130]z
3600 [131]34,207,250
3610 [131]26,20 ,125
3620 [131]29,69 ,250
3630 [131]21,237,125
3640 [131]23,59 ,250
3650 [131]19,137,250
3660 [131]26,20 ,250
3670 [131]21,237,250
3999 [151]si[170]24,0:[141]2530:[142]
4000 [143] --- siegerehrung ---
4001 [129]z[178]1[164]as
4002 [139]p(z)[177]sp[167]sp[178]p(z):si$[178]n$(z)
4003 [130]z
4010 [153]"load -- das spiel ist zuende --"
4090 [153]" gewonnen hat :":[153]" sys"si$"print# mit sys"sp"print# punkten !!":x[178]0
4100 [129]z[178]1[164]as
4110 [139]p(z)[178]sp[175]n$(z)[179][177]si$[167][153]"und sys"n$(z)"print# mit sys"sp"print# punkten !!":x[178]1
4120 [130]z
4280 [139]x[178]1[167][153]"ihr muesst eucht leider den preis teilen"
4290 [153]"sys <space>print#"
4300 [151]198,0:[146]198,1
4310 [139]x[178]1[167][153]"load wollt ihr die syskprint#ohle in bar":[137]4330
4320 [153]"load willst du die syskprint#ohle in bar"
4330 [153]" oder den sysuprint#eberraschungspreis ?"
4340 [161]a$:[139]a$[178]""[167]4340
4350 [139]a$[178]"u"[167] 8000
4360 [139]a$[179][177]"k"[167]4340
4370 [153]"load herzlichen glueckwunsch !!"
4380 [139]x[178]1[167][153]" hier ist euer gewinn:":[137]4400
4390 [153]" hier ist dein gewinn:"
4400 [153]" "sp[170]2"schubkarren randvoll mit"
4410 [153]" frischer steinkohle aus"
4420 [153]" dem ruhrgebiet !!"
4500 [153]"print# <space>" :[151]198,0
4510 [161] a$:[139]a$[178]""[167]4510
4520 [141]12010
4530 x[178]ar:[139]x[178]50[167]x[178]40
4535 [129]w[178]1[164]as
4540 [139] sc(x)[177][178]p(w) [167] 4610
4545 hz[178]1:sc(x)[178]p(w):hi$(x)[178]n$(w)
4550 [129]y[178]x[164]x[171]8 [169][171]1
4560 [139]sc(y)[179][178]sc(y[171]1)[167] 4600
4570 z[178]sc(y):sc(y)[178]sc(y[171]1):sc(y[171]1)[178]z
4580 z$[178]hi$(y):hi$(y)[178]hi$(y[171]1) :hi$(y[171]1)[178]z$
4600 [130]y
4610 [130]w
4900 [139] hz[178]1 [167] hz[178]0:[141]12100 :[141]13010
4910 [137]170
6500 [143] --- buchstabe spring---
6510 kb[178]kb[170]1:[151]v,40:[151]v[170]1,74
6520 [140]
6530 [135]q:[139]q[179][177]999[167]6530
6540 z1[178][198](e$)[171]65:[139]z1[178]0[167]6560
6545 [139] (z1[177]25) [176] (z1[179]0) [167] z1[178]23
6550 [129]z[178]1[164]z1[172]8:[135]q:[130]
6560 [129]z[178]0[164]23[169]3:[135]q:[151]13[172]64[170]z,q:[130]
6570 [151]v[170]21,1:[153]" "
6580 ve[178][171]2:y[178]74
6590 [129]x[178]40[164]150[169]2:y[178]y[170]ve: [151]v[170]1,y:[151]v,x:ve[178]ve[170]0.1:[130]
6600 ve[178][171]2.6:[151]s[170]8,2:[151]s[170]11,129
6610 [129]x[178]151[164]255[169]2:y[178]y[170]ve:[151]v[170]1,y:[151]v,x:ve[178]ve[170]0.1:[130]
6620 [151]s[170]11,0:[151]v,0:[151]v[170]16,1:ve[178][171]2.4:[151]s[170]8,2:[151]s[170]11,129
6630 [129]x[178]1[164]90[169]2:y[178]y[170]ve:[151]v[170]1,y:[151]v,x:ve[178]ve[170]0.1:[130]
6640 [151]v[170]21,0:[151]v[170]16,0
6645 [139] kb[177]5 [175] kb[177][178]as [167] 6675
6650 [151]s[170]8,2:[151]s[170]12,12:[151]s[170]11,0:[151]s[170]11,129:[129]x[178]0[164]1500:[130]:[151]s[170]11,0
6670 [141]2530:[142]
6672 [143] --- aufloesung ---
6675 [153]"sys"b$"print#"
6705 [143] --- bildschirmwackeln ---
6706 [141]2500
6710 [151]s[170]12,10[172]16[170]15:[151]s[170]8,2 :[151]s[170]11,129
6712 [151]s[170]19,15[172]16[170]15:[151]s[170]15,2 :[151]s[170]18,129
6715 [129]z[178]0[164]50
6720 [129]x[178]8[164]15:[151]53270,x:[130]x
6730 [129]x[178]14[164]9[169][171]1:[151]53270,x:[151]s[170]8,x:[130]x
6740 [151]s[170]15,z:[130]z:[151]53270,200
6750 [151]s[170]11,0:[151]s[170]18,0
6770 [129]z[178]1[164]3:[151]s[170]12,9 :[151]s[170]8,1:[151]s[170]11,129:
6800 [129]x[178]0[164]30:[151]53270,[187](0)[172]5[170]9:[130]x:[129]x[178]0[164]300:[130]x:[151]s[170]11,0:[130]z
6900 [151]53270,200:[141]2530:[142]
6999 [143] --- buchstaben data ---
7000 [131]999,24,60,102,126,102,102,102,0
7005 [131]124,102,102,124,102,102,124,0
7010 [131]60,102,96,96,96,102,60,0
7015 [131]120,108,102,102,102,108,120,0
7020 [131]126,96,96,120,96,96,126,0
7025 [131]126,96,96,120,96,96,96,0
7030 [131]60,102,96,110,102,102,60,0
7035 [131]102,102,102,126,102,102,102,0
7040 [131]60,24,24,24,24,24,60,0
7045 [131]30,12,12,12,12,108,56,0
7050 [131]102,108,120,112,120,108,102,0
7055 [131]96,96,96,96,96,96,126,0
7060 [131]99,119,127,107,99,99,99,0
7065 [131]102,118,126,126,110,102,102,0
7070 [131]60,102,102,102,102,102,60,0
7075 [131]124,102,102,124,96,96,96,0
7080 [131]60,102,102,102,102,60,14,0
7085 [131]124,102,102,124,120,108,102,0
7090 [131]60,102,96,60,6,102,60,0
7095 [131]126,24,24,24,24,24,24,0
7100 [131]102,102,102,102,102,102,60,0
7105 [131]102,102,102,102,102,60,24,0
7110 [131]99,99,99,107,127,119,99,0
7115 [131]102,102,60,24,60,102,102,0
7120 [131]102,102,102,60,24,24,24,0
7125 [131]126,6,12,24,48,96,126,0
8000 [143] --- ueberraschung ---
8010 [153]"loadsys der ueberraschungspreisprint#"
8015 [139] sp [179] 50 [167] [137] 8900
8020 z[178][181]([187](0)[172]8)[170]1
8025 [139][195](ub$)[178]16[167]ub$[178]""
8027 [139]ub$[178]""[167]8070
8030 [129]y[178]1[164][195](ub$)[169]2:[139][202](ub$,y,2)[178][196](z)[167]8020
8040 [130]y
8070 ub$[178]ub$[170][196](z)
8080 [145]z[137]8100,8200,8300,8400,8500,8600,8700,8800
8089 :
8090 [143] --- ** 1 ** ---
8100 [139]x[178]1[167][153]" ihr habt so viele punkte erreicht,"
8110 [139]x[178]1[167][153]" dass ihr im systinnef-buch der rekordeprint#"
8120 [139]x[178]1[167][153]" erwaehnt werdet !!"
8130 [139]x[178]1[167] 4500
8140 [153]" du hast so viele punkte erreicht,"
8150 [153]" dass du im systinnef-buch der rekordeprint#"
8160 [153]" erwaehnt wirst !!"
8170 [137]4500
8189 :
8190 [143] --- ** 2 ** ---
8200 [139]x[178]1[167][153]" ihr gewinnt ein wochenende":[137]8220
8210 [153]" du gewinnst ein wochenende"
8220 [153]" mit thomas gottschalk einschliesslig"
8230 [153]" einem auftritt im werbefernsehen"
8240 [153]" mit pommes und hamburger eines"
8250 [153]" bekannten, schottischen"
8260 [153]" reste - restaurants !!"
8270 [137]4500
8289 :
8290 [143] --- ** 3 ** ---
8300 [139]x[178]1[167][153]" weil ihr so gut raten koennt,"
8310 [139]x[178]1[167][153]" duerft ihr in robert lembkes":[137]8340
8320 [153]" weil du so gut raten kannst,"
8330 [153]" darfst du in robert lembkes"
8340 [153]" beliebtem fernsehquiz"
8350 [153]"sys heiteres beruferaten print#mitspielen !!"
8360 [137]4500
8389 :
8390 [143] --- ** 4 ** ---
8400 [139]x[179][177]1[167] 8430
8405 [153]" da ihr nicht besonders intelligent"
8410 [153]" ausseht und nur mit viel glueck"
8420 [153]" gewonnen habt, duerft ihr mit der":[137]8460
8430 [153]" da du nicht besonders intelligent"
8450 [153]" aussiehst und nur mit viel glueck"
8455 [153]" gewonnen hast, darfst du mit der"
8460 [153]" challenger ins all fliegen und"
8470 [153]" mr spock besuchen !!"
8480 [137]4500
8489 :
8490 [143] --- ** 5 ** ---
8500 [139]x[179][177]1[167] 8515
8510 [153]" ihr gewinnt ein stueck von":[137]8520
8515 [153]" du gewinnst ein stueck von"
8520 [153]" der berliner mauer ( 5m breit )."
8590 [137]4500
8594 :
8595 [143] --- ** 6 ** ---
8600 [139]x[179][177]1[167]8625
8610 [153]" was !! ihr habt nur "sp"punkte"
8620 [153]" erreicht und wollt dafuer auch noch":[137]8630
8625 [153]" was !! du hast nur "sp"punkte"
8627 [153]" erreicht und willst dafuer auch noch"
8630 [153]" eine belohnung haben ??
8640 forz=0to3000:next
8650 ifx<>1then8680
8660 print" na gut, weil ihr noch etwas"
8670 print" uebung noetig habt, gewinnt ihr ein":goto8690
8680 print" na gut, weil du noch etwas"
8685 print" uebung noetig hast, gewinnst du ein"
8690 print" freispiel."
8695 goto4500
8697 :
8698 rem --- ** 7 ** ---
8700 ifx<>1then8720
8710 print" ihr gewinnt einen [158]mercedes 500 bio[152]":goto8730
8720 print" du gewinnst einen [158]mercedes 500 bio[152]"
8730 print" (umweltfreundliches modell mit"
8740 print" pedalantrieb.)"
8750 goto4500
8798 :
8799 rem --- ** 8 ** ---
8800 ifx<>1then8820
8810 print" ihr gewinnt eine solargetriebene":goto8830
8820 print" du gewinnst eine solargetriebene"
8830 print" taschenlampe, die alles taghell"
8840 print" erleuchtet (sofern die sonne scheint!)"
8850 goto4500
8898 :
8899 rem --- bei schlechtem erg.---
8900 s=54272:gosub2500:a1$="gnade "
8901 a2$="[150]absturz[146]"
8902 g1$="gnade[146]"
8903 g2$="[150]absturz"
8908 ifx<>1then8920
8910 print" ihr ward so schlecht, dass ich am":goto8930
8920 print" du warst so schlecht, dass ich am"
8930 print" liebsten das programm [158]abstuerzen[152]"
8940 print" lassen wuerde !! "
8945 ifx<>1then8965
8947 forz=0to2000:nextz
8950 print" aber ihr habt noch eine chance !!"
8955 forz=0to2000:nextz
8960 print" waehlt:":poke198,0:goto8990
8965 forz=0to2000:nextz
8970 print" aber du hast noch eine chance !!"
8975 forz=0to2000:nextz
8980 print" waehle:":poke198,0
8990 printa1$
8995 printa2$
8997 pokes+11,0:pokes+8,40:pokes+11,17
9000 forx=0to5
9001 ifpeek(198)<>0then9040
9002 nextx
9005 printg1$
9010 printg2$
9015 pokes+11,0:pokes+8,60:pokes+11,17
9020 forx=0to5
9021 ifpeek(198)<>0then9040
9022 nextx
9030 goto8990
9040 pokes+11,0:y=0:z=int(rnd(0)*100)+1
9045 if z > 80 then y=1
9050 if y=1 then printg1$;g2$:print" nochmal glueck gehabt !":goto4500
9055 printa1$;a2$:print" jetzt reicht's !"
9057 forx=0to1500:nextx
9060 rem --- absturz ---
9070 gosub2500
9080 pokes+8,6:pokes+12,7:pokes+13,0
9090 print"[147][151]"chr$(14):
9100 x$="[193] b g e s t u e r z t"
9110 print"";:
9120 z=9:gosub10600
9180 forx=0to500:next:sys64738
9500 rem -------
9505 print"[147] einen moment..."
9510 print"[144]load"chr$(34)"edit"chr$(34)",8"
9520 print"run"
9530 poke631,13:poke632,13:poke198,2:new
10000 rem --- titelbild ---
10010 gosub2500:poke198,0
10020 pokes+8,6:pokes+12,7:pokes+13,0
10100 print"[147][129]"chr$(14):
10110 x$="[211]uper [209]uiz"
10120 print"";:z=14:gosub10600
10130 x$="[163][163][163][163][163][163][163][163][163][163]"
10140 z=14:gosub10600:print :if peek(198)>0 then 10800
10150 x$="[197]in [199]esellschaftsspiel"
10155 z=9:gosub10600
10160 x$="fuer 2 bis 16 [208]ersonen."
10165 z=9:gosub10600
10170 x$="[199]eschrieben von :"
10175 z=11:gosub10600:print
10180 print"";:x$="[210]obert [215]eitzel"
10185 z=12:gosub10600:print
10190 print"[129]";:x$="- 1990/91 -"
10195 z=14:gosub10600:goto10800
10600 :
10610 rem -------
10620 print
10630 forx=1tolen(x$)
10640 y$=mid$(x$,x,1)
10650 print""y$"[157]";
10660 fory=z+xto39
10670 printchr$(20);
10680 nexty:pokes+11,0:gosub2900 :print"[145]":nextx
10700 return
10710 :
10800 poke198,0:z=10
10810 forx=8to15:fory=1toz:nexty
10820 poke53270,x
10830 next
10840 forx=14to9step-1:fory=1toz:nexty
10850 poke53270,x
10860 next
10865 ifz=100then11000
10870 ifpeek(198)=0thenz=z+1:goto10810
11000 print"[147]":printchr$(142) :poke53270,200:return
12000 rem --- hiscores laden ---
12010 open2,8,2,"scores,s,r"
12020 forx=1to40:input#2,hi$(x):input#2,sc(x):next:close2
12030 return
12100 rem --- hiscores speichern ---
12110 open2,8,2,"@:scores,s,w"
12120 forx=1to40:print#2,hi$(x):print#2,sc(x):next:close2
12130 return
13000 rem --- hiscores zeigen ---
13010 :
13020 print"[147] [221][157][221][157][221][157][221][157][221][157][221][157][221][157][221][157][221][157][221][157][221][157][221][157][221][157][219]";
13030 print"[157][221][157][221][157][221][157][221][157][221][157][221][157][221][157][221][157][221][157][221][157][221][157][221]";
13040 print"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
13050 print"[150] 10 runden: 20 runden:"
13060 forx=1to10:printhi$(x)spc(18-len(hi$(x))-len(str$(sc(x))))sc(x);
13070 print""hi$(x+10)spc(18-len(hi$(x+10))-len(str$(sc(x+10))))sc(x+10)
13080 next
13150 print"[150] 30 runden: 50 runden:"
13160 forx=21to29:printhi$(x)spc(18-len(hi$(x))-len(str$(sc(x))))sc(x);
13170 print""hi$(x+10)spc(18-len(hi$(x+10))-len(str$(sc(x+10))))sc(x+10)
13180 next
13190 printhi$(30)spc(18-len(hi$(30))-len(str$(sc(30))))sc(30);
13195 print""hi$(40)spc(18-len(hi$(40))-len(str$(sc(40))))sc(40)""
13200 poke198,0:wait198,1:return
14000 rem --- anleitung ---
14010 open2,8,2,"anleitung,s,r"
14020 print"[147][154]"chr$(14);
14030 get#2,x$:ifx$<>"&"thenprintx$; :goto14050
14040 poke198,0:wait198,1:print"[147]";
14050 ifst<>64then14030
14060 close2:printchr$(142):goto170
15000 rem --- super quiz / ende ---